BBS in a Box 15

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / M / MacPerl 4.13 source.sit / Perl Source ƒ / Perl / reentrant.c < prev next >
MacBinary | 1993-10-23 | 2.0 KB | [TEXT/MPS ]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: reentrant.c
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	Compact Compressed (Unix) `(archive/compact)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Sat Oct 23 01:47:41 1993, modified Sat Oct 23 01:47:41 1993, creator 'MPS ', type ASCII, 1337 bytes "reentrant.c" , at 0x5b9 428 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 72 65 65 6e 74 72 | 61 6e 74 2e 63 00 00 00 |..reentr|ant.c...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 05 39 00 | 00 01 ac a8 ee 75 fd a8 |......9.|.....u..|
|00000060| ee 75 fd 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.u......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 2d 0d 00 00 |........|....-...|
|00000080| 2f 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |/*******|********|
|00000090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000c0| 2a 2a 2a 2a 2a 2a 0d 50 | 72 6f 6a 65 63 74 09 3a |******.P|roject.:|
|000000d0| 09 50 65 72 6c 09 09 09 | 09 2d 09 0d 46 69 6c 65 |.Perl...|.-..File|
|000000e0| 09 09 3a 09 72 65 65 6e | 74 72 61 6e 74 2e 63 09 |..:.reen|trant.c.|
|000000f0| 09 2d 09 50 72 65 70 61 | 72 65 20 65 76 65 72 79 |.-.Prepa|re every|
|00000100| 74 68 69 6e 67 20 66 6f | 72 20 61 6e 6f 74 68 65 |thing fo|r anothe|
|00000110| 72 20 50 65 72 6c 20 72 | 75 6e 0d 41 75 74 68 6f |r Perl r|un.Autho|
|00000120| 72 09 3a 09 4d 61 74 74 | 68 69 61 73 20 4e 65 65 |r.:.Matt|hias Nee|
|00000130| 72 61 63 68 65 72 0d 53 | 74 61 72 74 65 64 09 3a |racher.S|tarted.:|
|00000140| 09 30 38 41 70 72 39 33 | 09 09 09 09 09 09 09 09 |.08Apr93|........|
|00000150| 4c 61 6e 67 75 61 67 65 | 09 3a 09 4d 50 57 20 43 |Language|.:.MPW C|
|00000160| 0d 4d 6f 64 69 66 69 65 | 64 09 3a 09 30 38 41 70 |.Modifie|d.:.08Ap|
|00000170| 72 39 33 09 4d 4e 09 0d | 4c 61 73 74 09 09 3a 09 |r93.MN..|Last..:.|
|00000180| 30 38 41 70 72 39 33 0d | 2a 2a 2a 2a 2a 2a 2a 2a |08Apr93.|********|
|00000190| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2f 0d 0d |********|*****/..|
|000001d0| 23 69 6e 63 6c 75 64 65 | 20 3c 54 79 70 65 73 2e |#include| <Types.|
|000001e0| 68 3e 0d 23 69 6e 63 6c | 75 64 65 20 3c 52 65 73 |h>.#incl|ude <Res|
|000001f0| 6f 75 72 63 65 73 2e 68 | 3e 0d 23 69 6e 63 6c 75 |ources.h|>.#inclu|
|00000200| 64 65 20 3c 4d 65 6d 6f | 72 79 2e 68 3e 0d 23 69 |de <Memo|ry.h>.#i|
|00000210| 6e 63 6c 75 64 65 20 3c | 53 79 73 45 71 75 2e 68 |nclude <|SysEqu.h|
|00000220| 3e 0d 0d 23 69 6e 63 6c | 75 64 65 20 22 45 58 54 |>..#incl|ude "EXT|
|00000230| 45 52 4e 2e 68 22 0d 23 | 69 6e 63 6c 75 64 65 20 |ERN.h".#|include |
|00000240| 22 69 63 65 6d 61 6c 6c | 6f 63 2e 68 22 09 2f 2a |"icemall|oc.h"./*|
|00000250| 20 54 68 61 6e 6b 73 2c | 20 54 69 6d 20 21 20 2a | Thanks,| Tim ! *|
|00000260| 2f 0d 23 69 6e 63 6c 75 | 64 65 20 22 70 65 72 6c |/.#inclu|de "perl|
|00000270| 2e 68 22 0d 0d 65 78 74 | 65 72 6e 20 76 6f 69 64 |.h"..ext|ern void|
|00000280| 20 41 35 49 6e 69 74 28 | 50 74 72 20 6d 79 41 35 | A5Init(|Ptr myA5|
|00000290| 29 3b 0d 65 78 74 65 72 | 6e 20 6c 6f 6e 67 20 41 |);.exter|n long A|
|000002a0| 35 53 69 7a 65 28 76 6f | 69 64 29 3b 0d 0d 76 6f |5Size(vo|id);..vo|
|000002b0| 69 64 20 72 65 65 6e 74 | 65 72 28 29 0d 7b 0d 09 |id reent|er().{..|
|000002c0| 6c 6f 6e 67 09 2a 2a 09 | 72 61 6e 67 65 73 3b 0d |long.**.|ranges;.|
|000002d0| 09 48 61 6e 64 6c 65 09 | 74 65 6d 70 47 6c 6f 62 |.Handle.|tempGlob|
|000002e0| 3b 0d 09 50 74 72 09 09 | 74 65 6d 70 41 35 3b 0d |;..Ptr..|tempA5;.|
|000002f0| 09 6c 6f 6e 67 09 2a 09 | 72 61 6e 67 65 3b 0d 09 |.long.*.|range;..|
|00000300| 6c 6f 6e 67 09 09 73 69 | 7a 65 3b 0d 09 6c 6f 6e |long..si|ze;..lon|
|00000310| 67 09 09 66 72 6f 6d 3b | 0d 09 0d 09 2f 2a 20 52 |g..from;|..../* R|
|00000320| 65 6c 65 61 73 65 20 61 | 6c 6c 20 6d 65 6d 6f 72 |elease a|ll memor|
|00000330| 79 20 61 6c 6c 6f 63 61 | 74 65 64 20 6f 6e 20 74 |y alloca|ted on t|
|00000340| 68 65 20 70 72 65 76 69 | 6f 75 73 20 50 65 72 6c |he previ|ous Perl|
|00000350| 20 72 75 6e 20 2a 2f 0d | 09 66 72 65 65 5f 70 6f | run */.|.free_po|
|00000360| 6f 6c 5f 6d 65 6d 6f 72 | 79 28 5f 64 65 66 61 75 |ol_memor|y(_defau|
|00000370| 6c 74 5f 6d 65 6d 5f 70 | 6f 6f 6c 2d 3e 69 64 29 |lt_mem_p|ool->id)|
|00000380| 3b 09 0d 0d 09 69 66 20 | 28 21 28 72 61 6e 67 65 |;....if |(!(range|
|00000390| 73 20 3d 20 28 6c 6f 6e | 67 20 2a 2a 29 20 47 65 |s = (lon|g **) Ge|
|000003a0| 74 31 52 65 73 6f 75 72 | 63 65 28 27 49 52 6e 67 |t1Resour|ce('IRng|
|000003b0| 27 2c 20 31 32 38 29 29 | 29 0d 09 09 72 65 74 75 |', 128))|)...retu|
|000003c0| 72 6e 3b 0d 09 69 66 20 | 28 21 28 74 65 6d 70 47 |rn;..if |(!(tempG|
|000003d0| 6c 6f 62 20 3d 20 4e 65 | 77 48 61 6e 64 6c 65 28 |lob = Ne|wHandle(|
|000003e0| 73 69 7a 65 20 3d 20 41 | 35 53 69 7a 65 28 29 20 |size = A|5Size() |
|000003f0| 2d 20 33 32 29 29 29 0d | 09 09 72 65 74 75 72 6e |- 32))).|..return|
|00000400| 3b 0d 09 09 0d 09 48 4c | 6f 63 6b 28 74 65 6d 70 |;.....HL|ock(temp|
|00000410| 47 6c 6f 62 29 3b 0d 09 | 42 6c 6f 63 6b 4d 6f 76 |Glob);..|BlockMov|
|00000420| 65 28 2a 28 50 74 72 20 | 2a 29 20 43 75 72 72 65 |e(*(Ptr |*) Curre|
|00000430| 6e 74 41 35 20 2d 20 73 | 69 7a 65 2c 20 2a 74 65 |ntA5 - s|ize, *te|
|00000440| 6d 70 47 6c 6f 62 2c 20 | 73 69 7a 65 29 3b 0d 09 |mpGlob, |size);..|
|00000450| 41 35 49 6e 69 74 28 2a | 28 50 74 72 20 2a 29 20 |A5Init(*|(Ptr *) |
|00000460| 43 75 72 72 65 6e 74 41 | 35 29 3b 0d 09 74 65 6d |CurrentA|5);..tem|
|00000470| 70 41 35 20 3d 20 2a 74 | 65 6d 70 47 6c 6f 62 20 |pA5 = *t|empGlob |
|00000480| 2b 20 73 69 7a 65 3b 0d | 09 66 72 6f 6d 20 09 20 |+ size;.|.from . |
|00000490| 3d 20 73 69 7a 65 3b 0d | 09 66 6f 72 20 28 72 61 |= size;.|.for (ra|
|000004a0| 6e 67 65 20 20 3d 20 2a | 72 61 6e 67 65 73 3b 20 |nge  = *|ranges; |
|000004b0| 2a 72 61 6e 67 65 3b 20 | 72 61 6e 67 65 20 2b 3d |*range; |range +=|
|000004c0| 20 32 29 20 7b 0d 09 09 | 42 6c 6f 63 6b 4d 6f 76 | 2) {...|BlockMov|
|000004d0| 65 28 74 65 6d 70 41 35 | 20 2d 20 66 72 6f 6d 2c |e(tempA5| - from,|
|000004e0| 20 2a 28 50 74 72 20 2a | 29 20 43 75 72 72 65 6e | *(Ptr *|) Curren|
|000004f0| 74 41 35 20 2d 20 66 72 | 6f 6d 2c 20 66 72 6f 6d |tA5 - fr|om, from|
|00000500| 20 2d 20 72 61 6e 67 65 | 5b 30 5d 29 3b 0d 09 09 | - range|[0]);...|
|00000510| 66 72 6f 6d 20 3d 20 72 | 61 6e 67 65 5b 31 5d 3b |from = r|ange[1];|
|00000520| 0d 09 7d 0d 09 42 6c 6f | 63 6b 4d 6f 76 65 28 74 |..}..Blo|ckMove(t|
|00000530| 65 6d 70 41 35 20 2d 20 | 66 72 6f 6d 2c 20 2a 28 |empA5 - |from, *(|
|00000540| 50 74 72 20 2a 29 20 43 | 75 72 72 65 6e 74 41 35 |Ptr *) C|urrentA5|
|00000550| 20 2d 20 66 72 6f 6d 2c | 20 66 72 6f 6d 29 3b 0d | - from,| from);.|
|00000560| 0d 09 44 69 73 70 6f 73 | 65 48 61 6e 64 6c 65 28 |..Dispos|eHandle(|
|00000570| 74 65 6d 70 47 6c 6f 62 | 29 3b 0d 09 52 65 6c 65 |tempGlob|);..Rele|
|00000580| 61 73 65 52 65 73 6f 75 | 72 63 65 28 28 48 61 6e |aseResou|rce((Han|
|00000590| 64 6c 65 29 20 72 61 6e | 67 65 73 29 3b 0d 09 0d |dle) ran|ges);...|
|000005a0| 09 63 75 72 63 6d 64 20 | 3d 20 26 63 6f 6d 70 69 |.curcmd |= &compi|
|000005b0| 6c 69 6e 67 3b 0d 7d 0d | 0d 00 00 00 00 00 00 00 |ling;.}.|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000610| 20 43 4d 44 20 2a 20 56 | 4f 4c 41 54 49 4c 45 20 | CMD * V|OLATILE |
|00000620| 6f 6c 64 63 75 72 63 6d | 64 20 3d 20 63 75 72 63 |oldcurcm|d = curc|
|00000630| 0b 72 65 65 6e 74 72 61 | 6e 74 2e 63 02 00 00 00 |.reentra|nt.c....|
|00000640| 54 45 58 54 4d 50 53 20 | 01 00 ff ff ff ff 00 00 |TEXTMPS |........|
|00000650| 00 00 54 45 58 54 4d 50 | 53 20 01 00 ff ff ff ff |..TEXTMP|S ......|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 a8 ee 28 7e 00 00 | 05 39 00 00 01 ac 73 74 |....(~..|.9....st|
|00000680| 61 63 6b 2d 3e 61 72 79 | 5f 66 69 6c 6c 3b 0d 20 |ack->ary|_fill;. |
|00000690| 20 20 20 56 4f 4c 41 54 | 49 4c 45 20 69 6e 74 20 |   VOLAT|ILE int |
|000006a0| 6f 6c 64 70 65 72 6c 64 | 62 20 3d 20 70 65 72 6c |oldperld|b = perl|
|000006b0| 64 62 3b 0d 20 20 20 20 | 53 50 41 54 20 2a 20 56 |db;.    |SPAT * V|
|000006c0| 4f 4c 41 54 49 4c 45 20 | 6f 6c 64 73 70 61 74 20 |OLATILE |oldspat |
|000006d0| 3d 20 63 75 72 73 70 61 | 74 3b 0d 20 20 20 20 53 |= curspa|t;.    S|
|000006e0| 50 41 54 20 2a 20 56 4f | 4c 41 54 49 4c 45 20 6f |PAT * VO|LATILE o|
|000006f0| 6c 64 6c 73 70 61 74 20 | 3d 20 6c 61 73 74 73 70 |ldlspat |= lastsp|
|00000700| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 2a 2a 2a |...H..Mo|naco.***|
|00000710| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 50 |********|******.P|
|00000720| 72 6f 6a 65 63 74 00 06 | 00 03 00 50 00 20 01 dd |roject..|...P. ..|
|00000730| 02 3d 00 50 00 20 01 dd | 02 3d a8 ee 2f ad 00 00 |.=.P. ..|.=../...|
|00000740| 05 20 00 00 05 20 00 00 | 01 f5 01 00 00 00 00 1e |. ... ..|........|
|00000750| 00 50 00 20 01 dd 02 3d | 00 50 00 20 01 dd 02 3d |.P. ...=|.P. ...=|
|00000760| 00 00 01 f5 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 3b |.....n..|.n...>.;|
|00000780| f9 30 0f cc 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |.0......|.>..MPSR|
|00000790| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|000007a0| 03 f0 ff ff 00 00 00 4c | 00 3e 51 2c 00 00 00 00 |.......L|.>Q,....|
|000007b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+